home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacOberon 4.0.sit / MacOberon 4.0 / Toolbox Interfaces / MacIAC.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1993-10-25  |  2.5 KB  |  53 lines  |  [.Ob./.Ob5]
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. Syntax10i.Scn.Fnt
  4. ParcElems
  5. Alloc
  6. MODULE MacIAC;    (*od 25.10.93*)
  7. (* This Module contains some essential constants, data types and routines from
  8. the NEW Inside Macintosh volume
  9.             Interapplication Communication
  10. Edit.Open DK.MacOberonApp.Text for more information on how to create
  11. standalone Macintosh applications using MacOberon. *)
  12. IMPORT
  13.     SYSTEM,ME:=MacMemory,TB:=MacToolbox;
  14. CONST
  15. (* Apple Event Manager , only core routines for standard events*)
  16.     kCoreEventClass* = 61657674H;    (* aevt *)
  17.     kAEOpenApplication* =  6F617070H;     (* oapp *)
  18.     kAEOpenDocuments* = 6F646F63H;    (* odoc *)
  19.     kAEPrintDocuments* = 70646F63H;    (* pdoc *)
  20.     kAEQuitApplication* = 71756974H;    (* quit *)
  21.     typeAEList* = 6C697374H;    (* list *)
  22.     typeWildCard* = 2A2A2A2AH;    (* **** *)
  23.     typeFSS* = 66737320H;    (* fss  *)
  24.     keyMissedKeywordAttr* = 6D697373H;    (* miss *)
  25.     keyDirectObject* = 2D2D2D2DH;    (* ----    *)
  26.     errAEParamMissed* = -1715;
  27. (* Apple Event Manager , only core routines for standard events*)
  28.     AEKeyword* = LONGINT;
  29.     DescType* = LONGINT;
  30.     AEDesc*= RECORD
  31.         descriptorType*: DescType;
  32.         dataHandle*: ME.Handle
  33.     END;
  34.     AEDescList*= AEDesc;
  35.     AppleEvent*= AEDescList;
  36. (* Apple Event Manager , only core routines for standard events*)
  37.     PROCEDURE- AEInstallEventHandler*(theAEEventClass: LONGINT;theAEEventID: LONGINT;
  38.         handler: PROCEDURE(theAppleEvent,reply : AppleEvent;handelRefcon: LONGINT) :INTEGER;
  39.         handlerRefcon: LONGINT;isSysHandler: BOOLEAN): INTEGER    030H,03CH,009H,01FH,0A8H,016H;
  40.     PROCEDURE- AEGetAttributePtr*(theAppleEvent: AppleEvent;
  41.         theAEKeyword: AEKeyword;desiredType: DescType;VAR typeCode: DescType;dataPtr: LONGINT;maximumSize: LONGINT;
  42.         VAR actualSize: LONGINT): INTEGER    030H,03CH,00EH,015H,0A8H,016H;
  43.     PROCEDURE- AEProcessAppleEvent*(theEventRecord: TB.EventRecord): INTEGER    030H,03CH,002H,01BH,0A8H,016H;
  44.     PROCEDURE- AEGetParamDesc*(theAppleEvent: AppleEvent;theAEKeyword: AEKeyword;desiredType: DescType;
  45.         VAR result: AEDesc): INTEGER    030H,03CH,008H,012H,0A8H,016H;
  46.     PROCEDURE- AECountItems*(theAEDescList: AEDescList;
  47.         VAR theCount: LONGINT): INTEGER    030H,03CH,004H,007H,0A8H,016H;
  48.     PROCEDURE- AEGetNthPtr*(theAEDescList: AEDescList;index: LONGINT; desiredType: DescType;
  49.         VAR theAEKeyword: AEKeyword;VAR typeCode: DescType;dataPtr: LONGINT;
  50.         maximumSize: LONGINT;VAR actualSize: LONGINT): INTEGER    030H,03CH,010H,00AH,0A8H,016H;
  51.     PROCEDURE- AEDisposeDesc*(VAR theAEDesc: AEDesc): INTEGER    030H,03CH,002H,004H,0A8H,016H;
  52. END MacIAC.
  53.